CAAIlluminatedFraction_MercuryMagnitudeAA <-
function(r, Delta, i){
.Call("CAAIlluminatedFraction_MercuryMagnitudeAA", r, Delta, i)
}
